
'Start Service 
strServiceName = "ServiceHost" 
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") 
Set colListOfServices = objWMIService.ExecQuery ("Select * from Win32_Service Where Name ='" & strServiceName & "'") 
For Each objService in colListOfServices 
objService.StartService() 
Next 

Dim HTMLdirectory
HTMLdirectory=session.Property("INSTALLDIR")
strLink= "http://localhost:1400/ServiceHost"
Set objIExplorer = CreateObject("internetexplorer.application")
objIExplorer.visible = True
objIExplorer.navigate strLink
